Imports System.Data.SqlClient
Public Class frmDepartamento

    Dim dvDepartamento As New DataView
    Dim vbNuevo As Boolean = True


    Private Sub frmDepartamento_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            dvDepartamento = CargarDataTable("departamento").DefaultView
            dvDepartamento.RowFilter = ""
            gcPadreMenores.DataSource = dvDepartamento

        Catch ex As Exception
            MsgBox(ex.Message, 48)
        End Try

        'GroupBox2.Text = "Departamento"
        'GroupBox1.Text = "Mantenimiento"
        'txtBuscar.Select()

        'Preparamos la grilla para cargar los datos de la tabla
        'adapter = New SqlDataAdapter("Select * from Departamento", SQLConn)
        'ds = New DataSet()
        'adapter.Fill(ds, "Departamento")
        'dgPadreMenores.DataSource = ds.Tables("Departamento")
    End Sub
  
End Class
